home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / LgcyPlus / disk2 / STRIPSIN._ / STRIPSIN.
Encoding:
Text File  |  2001-03-02  |  1.1 KB  |  31 lines
  1. 10    ! **************************************************
  2. 20    ! Example: STRIPCHART (Sine Waves)
  3. 30    !
  4. 40    ! This program builds a scrolling STRIPCHART widget
  5. 50    ! that displays four sine waves.
  6. 60    !
  7. 70    ! **************************************************
  8. 80    !
  9. 90    INTEGER I
  10. 100   REAL D(1:4)
  11. 110   ASSIGN @Graph TO WIDGET "STRIPCHART"
  12. 120   CONTROL @Graph;SET ("TITLE":" Example: STRIPCHART (Sine Waves)")
  13. 130   CONTROL @Graph;SET ("X":50,"Y":25,"VISIBLE":0)
  14. 140   CONTROL @Graph;SET ("CURRENT AXIS":"X","ORIGIN":0,"RANGE":4)
  15. 150   CONTROL @Graph;SET ("NUMBER FORMAT":"MINUTES","DIGITS":9)
  16. 160   CONTROL @Graph;SET ("CURRENT AXIS":"Y","ORIGIN":-50)
  17. 170   CONTROL @Graph;SET ("RANGE":100,"VISIBLE":1)
  18. 180   CONTROL @Graph;SET ("SYSTEM MENU":"Quit")
  19. 190   ON EVENT @Graph,"SYSTEM MENU" GOTO Finis
  20. 200   Start=TIMEDATE
  21. 210   WHILE 1
  22. 220     T=TIMEDATE-Start
  23. 230     FOR I=1 TO 4
  24. 240       D(I)=-62+25*I+10*SIN(T*I*3)
  25. 250     NEXT I
  26. 260     CONTROL @Graph;SET ("POINT LOCATION":T,"VALUES":D(*))
  27. 270   END WHILE
  28. 280 Finis:   !
  29. 290   ASSIGN @Graph TO *          ! Delete STRIPCHART widget
  30. 300   END
  31.